#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
inherit CometCompo_evolution_PM_P_TK_view_basic PM_TK

#___________________________________________________________________________________________________________________________________________
method CometCompo_evolution_PM_P_TK_view_basic constructor {name descr args} {
 this inherited $name $descr

   this set_GDD_id GDD_CometCompo_evolution_PM_P_TK_view_basic

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometCompo_evolution_PM_P_TK_view_basic [P_L_methodes_set_CometCompo_evolution] {} {}
Methodes_get_LC CometCompo_evolution_PM_P_TK_view_basic [P_L_methodes_get_CometCompo_evolution] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
Generate_PM_setters CometCompo_evolution_PM_P_TK_view_basic [P_L_methodes_set_CometCompo_evolution_COMET_RE]

#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
method CometCompo_evolution_PM_P_TK_view_basic get_or_create_prims {C_canvas} {
# Define the handle
 set this(label) ${objName}_label
 if {![winfo exists $this(label)]} {
   label $this(label) -text [[this get_LC] get_name]
  }
 
 this Add_MetaData PRIM_STYLE_CLASS [list $this(label) "COMPO LABEL" \
                                    ]
									
 this set_root_for_daughters $this(label)
 return [this set_prim_handle $this(label)]
}

